
\begin{tikzpicture}[scale=1.5]
  \tkzDefPoints{0/0/O,3/1/P}
  \tkzDefPoint(160:1){A}
  \tkzInterLC(A,P)(O,A) \tkzGetFirstPoint{B}
  \tkzDrawCircle(O,A)
  \tkzDrawSegments(P,A P,O)
  \tkzDrawPoints(O,A,B,P)
  \tkzLabelPoints[left](O,A)
  \tkzLabelPoints[above](B)
  \tkzLabelPoints[right](P)
\end{tikzpicture}
